home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / star printer.pp (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  420b  |  13 lines
  1. 0 clr
  2. 10 rem star printer
  3. 15 poke53280,6:poke53281,6:print"[147]"
  4. 20 for l=54272 to 54295:poke l,0:next:poke 54296,15
  5. 30 poke 54277,8:poke 54278,255:poke 54276,23
  6. 40 for z=1 to 3:f1=15
  7. 50 for y=1 to 9:f2=15:poke 54273,f1
  8. 60 for x=1 to 5:poke 54287,f2:f2=f2*1.5 :next x:f1=f1*0.8
  9. 70 for w=1 to 12:f2=20:poke 54273,f1
  10. 80 for v=1 to 6:poke 54287,f2:f2=f2*0.8
  11. 90 next v:f1=f1/1.2:next w,z
  12. 100 poke 54278,15
  13.